home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 15 / 64er_Magazin_Sonderheft_15_19xx_Markt__Technik_de_Side_A.d64 / -maus dos basic (.txt) next >
Commodore BASIC  |  2022-10-26  |  29KB  |  1,042 lines
  1. 100 rem ***** maus dos 64 *****
  2. 110 rem (c) 1986 by dirk jansen
  3. 120 rem + benoetigt 'mausi 64'+
  4. 130 rem (c) 1986 by dirk jansen
  5. 140 rem
  6. 150 rem    v1.0 - 04.05.1986
  7. 160 rem -----------------------
  8. 170 :
  9. 172 rem @s1024
  10. 174 rem @e20000
  11. 176 :
  12. 180 da=peek(186):if da<>9 then da=8:rem - floppy adresse
  13. 200 if f=0 then f=-1:load"mausi 64",da,1
  14. 210 if f=1 then 31280
  15. 220 if f=2 then 31300
  16. 300 poke 788,peek(788)+3:rem - stoptaste ausschalten
  17. 470 :
  18. 480 rem *** maus funktionen ***
  19. 490 :
  20. 500 def fnad(x)=49152+3*x
  21. 510 def fnpa(x)=679+x
  22. 520 def fnva(x)=peek(fnpa(x))
  23. 530 def fnwo(x)=peek(x)+peek(x+1)*256
  24. 540 def fnlo(x)=x and 255
  25. 550 def fnhi(x)=int(x/256)
  26. 560 def fnxp(x)=fnwo(682+x*3)-24
  27. 570 def fnyp(x)=peek(681+x*3)-34
  28. 580 def fnxt(x)=int(fnxp(x)/8)-1
  29. 590 def fnyt(x)=int(fnyp(x)/8)-1
  30. 600 def fnky(x)=peek(680+x*17)
  31. 610 def fnpo(x)=peek(695+x)
  32. 620 def fnst(x)=(fnpo(0)-160)/4
  33. 630 def fner(x)=peek(698)
  34. 640 def fnsp(x)=peek(693)
  35. 650 def fndt(x)=-(peek(703) and 15)*(x=0)-(peek(703) and 2^(8-x))/2^(8-x)*(x>0)
  36. 660 def fnka(x)=680+x*13
  37. 670 :
  38. 680 rem *** dim arrays  ***
  39. 690 :
  40. 700 dim np$(19) :rem - note pad inhalt
  41. 710 dim fe$(143):rem - file enterys
  42. 720 dim ty$(4)  :rem - file types
  43. 730 dim co$(15) :rem - color names
  44. 740 dim no$(9)  :rem - options name
  45. 750 dim fo$(9)  :rem - options file name
  46. 760 dim so(9)   :rem - options startadr
  47. 762 dim er$(29) :rem - fehlermeldungen
  48. 770 :
  49. 780 rem *** variabeln ***
  50. 790 :
  51. 810 dn$="0"     :rem - unit
  52. 820 pa=4        :rem - printer adr
  53. 830 ps=7        :rem - printer sec.
  54. 870 :
  55. 880 rem *** read data ***
  56. 890 :
  57. 900 restore
  58. 910 for i=0 to 15:read co$(i):next i:rem - read color names
  59. 920 for i=0 to 4:read ty$(i):next i:rem - read file type names
  60. 930 for i=0 to 29:read er$(i):next i:rem - read error text
  61. 970 :
  62. 980 rem *** haupt programm ***
  63. 990 :
  64. 1000 gosub 40000:rem - show screen
  65. 1002 gosub 42000:rem - read parameter
  66. 1010 gosub 41000:rem - insert disk
  67. 1030 gosub 43000:rem - read note pad
  68. 1040 gosub 44000:rem - read options
  69. 1050 gosub 45000:rem - read directory
  70. 1100 sf%=0:mf%=144
  71. 1110 gosub 54000
  72. 1120 f%=0:gosub 51000:if f%=1 then gosub 54000:goto 1200
  73. 1122 if f%=2 then 1200
  74. 1124 if f%=3 then gosub 54000
  75. 1130 if yp=2 and xp>9 and xp<26 and sf%+40<=af% then sf%=sf%+40:goto 1110
  76. 1132 if yp=2 and xp>25 and sf%-40=>0 then sf%=sf%-40:goto 1110
  77. 1134 if yp<4 or yp>23 then 1120
  78. 1140 if fl then 2000
  79. 1150 a=-(xp>20)*20+yp-4
  80. 1160 if sf%+a>af% then goto 1120
  81. 1170 sys fnad(16),4,1,20,1,32,peek(646)
  82. 1180 sys fnad(16),4,21,20,1,32,peek(646)
  83. 1190 sys fnad(13),yp,1-(xp>20)*20:print"[186]";:mf%=sf%+a
  84. 1200 nf$=fe$(mf%)
  85. 1210 sys fnad(13),24,7:print "";mid$(nf$,2,16);"[146]";
  86. 1220 a=asc(left$(nf$,1)+chr$(0)):ty$=" ":if (a and 128)=0 then ty$="*"
  87. 1230 ty$=ty$+ty$(a and 7)
  88. 1240 if (a and 64) then ty$=ty$+"<"
  89. 1250 sys fnad(13),24,28:print "";left$(ty$+" ",5);"[146]";
  90. 1260 a=asc(mid$(nf$,18,1)+chr$(0))+asc(mid$(nf$,19,1)+chr$(0))*256
  91. 1270 sys fnad(13),24,38:print "";right$("  "+str$(a),3);"[146]";
  92. 1280 sys fnad(13),25,37:print "";right$("  "+str$(fb%),3);"[146]";
  93. 1290 goto 1120
  94. 2000 if (fl and 2)=2 then fl=fl and 253:goto 1010
  95. 2010 if (fl and 4)<>4 then 2060
  96. 2050 sys 64738
  97. 2060 if (fl and 8)<>8 then 1120
  98. 2100 print"[147]";chr$(9);chr$(142);
  99. 2110 print"load"+chr$(34);
  100. 2120 for i=1 to 16:a$=mid$(fe$(mf%),1+i,1):if a$<>chr$(160) then print a$;
  101. 2130 next i:print chr$(34);",";da;",1"
  102. 2140 print""
  103. 2150 print"run"
  104. 2160 poke 631,19:poke 632,13:poke 633,13:poke 198,3:end
  105. 9999 print"dead end":goto 9999
  106. 19970 :
  107. 19980 rem *** fehler behandlung ***
  108. 19990 :
  109. 20000 print:print"[147]";chr$(14);chr$(8):poke 198,0
  110. 20010 print tab(10);"********************"
  111. 20020 print tab(10);"*                  *"
  112. 20030 print tab(10);"*  [211][217][211][212][197][205] [160][198][197][200][204][197][210]  *"
  113. 20040 print tab(10);"*                  *"
  114. 20050 print tab(10);"********************"
  115. 20060 print""
  116. 20070 print"z.[194].: [196]ruecken von [211][212][207][208]/[210][197][211][212][207][210][197]"
  117. 20080 print"      [196]iskettenfehler"
  118. 20090 print"      [198]ehler beim [208]rogrammstart"
  119. 20092 print"      [196]rucker nicht angeschlossen"
  120. 20100 print""
  121. 20110 print "[194]itte druecken [211]ie:"
  122. 20120 print " f1 [146]  [203]altstart"
  123. 20130 print " f3 [146]  [215]armstart ([196]isk. wechseln)"
  124. 20140 print " f5 [146]  [194][193][211][201][195] [214]2.0 ([210]eset)"
  125. 20150 print " f7 [146]  [198]ehlerquelle"
  126. 20160 print"              "
  127. 20170 get a$:if a$<>"" then 20200
  128. 20180 print"[211][217][211][212][197][205]  [198][197][200][204][197][210]"
  129. 20190 get a$:if a$="" then 20160
  130. 20200 if a$="[133]" then run
  131. 20210 if a$="[134]" then 1000
  132. 20220 if a$="[135]" then sys 64738
  133. 20230 if a$<>"[136]" then 20160
  134. 20240 print"[147]"
  135. 20250 print,"* [198]ehlerquelle *"
  136. 20260 print""
  137. 20262 a=peek(700):if a>29 then a=0
  138. 20270 print"[198]ehlerart:    ";er$(a)
  139. 20280 print""
  140. 20290 print"[198]ehlernummer:";a
  141. 20300 print""
  142. 20310 print,"- [194]itte [212]aste [196]ruecken -"
  143. 20320 get a$:if a$="" then 20320
  144. 20330 goto 20000
  145. 29970 :
  146. 29980 rem *** parameter ***
  147. 29990 :
  148. 30000 sys fnad(7) :rem - scr retten
  149. 30002 sys fnad(13),4,1
  150. 30010 print spc(26);"[176][192][192][189]        [221][146]"
  151. 30020 print spc(26);"[221] [212]ext-     [221][146]"
  152. 30030 print spc(26);"[221] [210]ahmen-   [221][146]"
  153. 30040 print spc(26);"[221] [194]ild-     [221][146]"
  154. 30050 print spc(26);"[221] [205]ausfarbe [221][146]"
  155. 30060 print spc(26);"[171][192][192][192][192][192][192][192][192][192][192][192][179][146]"
  156. 30070 print spc(26);"[221] [196]rucker-  [221][146]"
  157. 30080 print spc(26);"[221] [198]loppy-   [221][146]"
  158. 30090 print spc(26);"[221] [205]ausdaten [221][146]"
  159. 30100 print spc(26);"[171][192][192][192][192][192][192][192][192][192][192][192][179][146]"
  160. 30102 print spc(26);"[221][160][211]peichern [221][146]"
  161. 30104 print spc(26);"[173][192][192][192][192][192][192][192][192][192][192][192][189][146]"
  162. 30110 gosub 51000:xo=xp:yo=yp:if yp<3 or yp>15 then xp=0
  163. 30120 if xp<27 then fl=flor1:sys fnad(8):sys fnad(18):return
  164. 30130 if yp=4 or yp=9 or yp=13 then 30110
  165. 30140 on yp-4 gosub 30160,30170,30180,30190,20000,30500,30300,30400,20000,46000
  166. 30150 goto 30110
  167. 30160 a=646:a$="[212]extfarbe":goto 30200
  168. 30170 a=53280:a$="[210]ahmenf.":goto 30200
  169. 30180 a=53281:a$="[194]ildfarbe":goto 30200
  170. 30190 a=703:a$="[205]ausfarbe"
  171. 30200 b=peek(a) and 15:sys fnad(7)
  172. 30210 sys fnad(13),4,1
  173. 30212 print tab(12);"[176][192][192][192][192][192][192][192][192][192][192][192][174][146]"
  174. 30214 print tab(12);"[221][146] ";left$(a$+"         ",9);" [221][146]"
  175. 30216 print tab(12);"[171][192][192][192][192][192][192][192][192][192][192][192][179][146]"
  176. 30220 for i=0 to 15
  177. 30230 print tab(12);"[221] ";
  178. 30240 if i=b then print"[157][186]";
  179. 30250 print left$(co$(i)+"         ",9);" [221][146]
  180. 30260 [130] i
  181. 30270 [153] [163]12);"/tantantantantantantantantantantanexpwait"
  182. 30280 [141] 51000:xo[178]xp:[139] yp[179]7 [176] yp[177]23 [167] xp[178]0
  183. 30282 [139] xp[179]13 [176] xp[177]23 [167] yo[178]yp:fl[178]fl [176] 1:[158] [165]ad(8):[158] [165]ad(18):[142]
  184. 30290 b[178]yp[171]7:[151] a,([194](a) [175] 240)[170](b [175] 15):[158] [165]ad(18):[137] 30210
  185. 30300 [158] [165]ad(7)
  186. 30310 [158] [165]ad(13),4,1
  187. 30311 [153] [163]12);"ortantantantantantantantantantantantantan^wait"
  188. 30312 [153] [163]12);"(NULL)wait ascloppydaten (NULL)wait"
  189. 30314 [153] [163]12);"-tantantantantantantantantantantantantan<wait"
  190. 30316 [153] [163]12);"(NULL) atndresse: 8  (NULL)wait"
  191. 30318 [153] [163]12);"(NULL) atndresse: 9  (NULL)wait"
  192. 30320 [153] [163]12);"-tantantantantantantantantantantantantan<wait"
  193. 30322 [153] [163]12);"(NULL) str$rive:   0  (NULL)wait"
  194. 30324 [153] [163]12);"(NULL) str$rive:   1  (NULL)wait"
  195. 30326 [153] [163]12);"/tantantantantantantantantantantantantanexpwait"
  196. 30328 [158] [165]ad(13),da[171]1,14:[153]"sqrwait"
  197. 30329 [158] [165]ad(13),[197](dn$)[170]10,14:[153]"sqrwait"
  198. 30330 [141] 51000:yo[178]yp:[139] xp[179]13 [176] xp[177]25 [167] yp[178]0
  199. 30332 [139] yp[179]7 [176] yp[177]11 [167] xo[178]yo:fl[178]fl [176] 1:[158] [165]ad(8):[158] [165]ad(18):[142]
  200. 30340 [139] yp[178]7 [167] da[178]8
  201. 30342 [139] yp[178]8 [167] da[178]9
  202. 30344 [139] yp[178]10 [167] dn$[178]"0"
  203. 30346 [139] yp[178]11 [167] dn$[178]"1"
  204. 30350 [137] 30310
  205. 30400 [158] [165]ad(7):[158] [165]ad(13),4,1
  206. 30410 [153] [163]12);"ortantantantantantantantantantantantantantantantantan^wait"
  207. 30412 [153] [163]12);"(NULL) wait   (NULL)ausstr$aten    (NULL)wait"
  208. 30414 [153] [163]12);"-tantantantantantantantantantantantantantantantantan<wait"
  209. 30416 [153] [163]12);"(NULL) doppelt breit   (NULL)wait"
  210. 30418 [153] [163]12);"(NULL) doppelt hoch    (NULL)wait"
  211. 30420 [153] [163]12);"(NULL) hinter (NULL)chrift  (NULL)wait"
  212. 30422 [153] [163]12);"-tantantantantantantantantantantantantantantantantan<wait"
  213. 30424 [153] [163]12);"(NULL) chr$eschwindigkeit (NULL)wait"
  214. 30426 [153] [163]12);"(NULL) = ";[201](" "[170][196]([194](693)),3);"           (NULL)wait"
  215. 30430 [153] [163]12);"-tantantantantantantantan=tantantantantantantantan<wait"
  216. 30432 [153] [163]12);"(NULL)  + 1   (NULL)  +10   (NULL)wait"
  217. 30433 [153] [163]12);"-tantantantantantantantan(NULL)tantantantantantantantan<wait"
  218. 30434 [153] [163]12);"(NULL)  - 1   (NULL)  -10   (NULL)wait"
  219. 30436 [153] [163]12);"/tantantantantantantantan>tantantantantantantantanexpwait"
  220. 30440 [158] [165]ad(13),7,14:[153]" wait":[139] [165]dt(1) [167] [158] [165]ad(13),7,14:[153]"sqrwait"
  221. 30442 [158] [165]ad(13),8,14:[153]" wait":[139] [165]dt(2) [167] [158] [165]ad(13),8,14:[153]"sqrwait"
  222. 30444 [158] [165]ad(13),9,14:[153]" wait":[139] [165]dt(3) [167] [158] [165]ad(13),9,14:[153]"sqrwait"
  223. 30450 [141] 51000:xo[178]xp:[139] yp[179]7 [176] yp[177]17 [167] xp[178]0
  224. 30452 [139] xp[179]13 [176] xp[177]30 [167] yo[178]yp:fl[178]fl [176] 1:[158] [165]ad(8):[158] [165]ad(18):[142]
  225. 30460 [139] yp[178]7 [167] [151] 703,([194](703) [175] 127)[170](1[171][165]dt(1))[172]128
  226. 30462 [139] yp[178]8 [167] [151] 703,([194](703) [175] 191)[170](1[171][165]dt(2))[172]64
  227. 30464 [139] yp[178]9 [167] [151] 703,([194](703) [175] 223)[170](1[171][165]dt(3))[172]32
  228. 30466 [139] yp[178]14 [175] xp[179]22 [175] [194](693)[179]255 [167] [151] 693,[194](693)[170]1
  229. 30468 [139] yp[178]14 [175] xp[177]22 [175] [194](693)[179]245 [167] [151] 693,[194](693)[170]10
  230. 30470 [139] yp[178]16 [175] xp[179]22 [175] [194](693)[177]0 [167] [151] 693,[194](693)[171]1
  231. 30472 [139] yp[178]16 [175] xp[177]22 [175] [194](693)[177]10 [167] [151] 693,[194](693)[171]10
  232. 30480 [158] [165]ad(13),12,17
  233. 30482 [153] "";[201]("  "[170][196]([194](693)),3);"wait"
  234. 30490 [137] 30440
  235. 30500 [158] [165]ad(7):[158] [165]ad(13),4,1
  236. 30510 [153] [163]12);"ortantantantantantantantantantantantantantantantantan^wait"
  237. 30512 [153] [163]12);"(NULL)wait  str$rucker-str$aten  (NULL)wait"
  238. 30514 [153] [163]12);"-tantantantantantantantantantantantantantantantantan<wait"
  239. 30516 [153] [163]12);"(NULL) str$ruckeradresse  (NULL)wait"
  240. 30518 [153] [163]12);"(NULL) (NULL)weitadresse    (NULL)wait"
  241. 30520 [153] [163]12);"-tantantantantantantantantantantantantantantantantan<wait"
  242. 30522 [153] [163]12);"(NULL) (NULL)teuerzeichen:  (NULL)wait"
  243. 30524 [153] [163]12);"-tantantantantantantantantantantantantantantantantan<wait"
  244. 30526 [153] [163]12);"(NULL) 8 (NULL)(NULL)right$ ein       (NULL)wait"
  245. 30528 [153] [163]12);"(NULL) chr$ross/(NULL)lein ein (NULL)wait"
  246. 30530 [153] [163]12);"(NULL) (NULL)evers ein      (NULL)wait"
  247. 30532 [153] [163]12);"(NULL) (NULL)evers aus      (NULL)wait"
  248. 30534 [153] [163]12);"(NULL) (NULL)agenruecklauf  (NULL)wait"
  249. 30536 [153] [163]12);"/tantantantantantantantantantantantantantantantantanexpwait"
  250. 30540 [141] 51000:xo[178]xp:[139] yp[179]7 [176] yp[177]16 [167] xp[178]0
  251. 30542 [139] xp[179]13 [176] xp[177]30 [167] fl[178]fl [176] 1:yo[178]yp:[158] [165]ad(8):[158] [165]ad(18):[142]
  252. 30550 [139] yp[178]7 [167] f$[178]"str$ruckeradresse?":t$[178][202]([196](pa),2):l[178]3:[141] 53000
  253. 30552 [139] yp[178]7 [175] f[178]0 [167] pa[178][197](t$)
  254. 30560 [139] yp[178]8 [167] f$[178]"(NULL)weitadresse?":t$[178][202]([196](ps),2):l[178]3:[141] 53000
  255. 30562 [139] yp[178]8 [175] f[178]0 [167] ps[178][197](t$)
  256. 30570 [139] yp[178]12 [167] a$[178]lp$:f$[178]"8 (NULL)(NULL)right$ ein (left$ex)":[141] 30900:lp$[178]a$
  257. 30580 [139] yp[178]13 [167] a$[178]gk$:f$[178]"chr$ross/(NULL)lein ein":[141] 30900:gk$[178]a$
  258. 30590 [139] yp[178]14 [167] a$[178]re$:f$[178]"(NULL)evers ein (left$ex)":[141] 30900:re$[178]a$
  259. 30600 [139] yp[178]15 [167] a$[178]ra$:f$[178]"(NULL)evers aus (left$ex)":[141] 30900:ra$[178]a$
  260. 30610 [139] yp[178]16 [167] a$[178]cr$:f$[178]"(NULL)agenruecklauf":[141] 30900:cr$[178]a$
  261. 30620 [137] 30540
  262. 30900 t$[178]"":x$[178]a$:[129] i[178]1 [164] [195](a$)
  263. 30902 t$[178]t$[170][202]("0123456789abcdef",([198]([202](a$,i)[170][199](0))[173]16)[170]1,1)
  264. 30904 t$[178]t$[170][202]("0123456789abcdef",([198]([202](a$,i)[170][199](0))[175] 15)[170]1,1)
  265. 30906 [130] i:l[178]16:[141] 53000:[139] f [167] a$[178]x$:[142]
  266. 30910 a$[178]"":[129] i[178]1 [164] [195](t$) [169] 2
  267. 30912 b$[178][202](t$,i,1):b[178][197](b$):[139] b$[177][178]"a" [175] b$[179][178]"f" [167] b[178]b[170][198](b$)[171]55
  268. 30914 b$[178][202](t$,i[170]1,1):c[178][197](b$):[139] b$[177][178]"a" [175] b$[179][178]"f" [167] c[178]c[170][198](b$)[171]55
  269. 30916 a$[178]a$[170][199](b[172]16[170]c):[130] i:[142]
  270. 30970 :
  271. 30980 [143] *** zusatz ***
  272. 30990 :
  273. 31000 [158] [165]ad(7):[158] [165]ad(13),4,1
  274. 31010 [153] [163]15);"ortantantantantanexp      /tantantantantan^wait"
  275. 31020 [139] ao%[177]0 [167] 31200
  276. 31030 [153] [163]15);"(NULL)                  (NULL)wait"
  277. 31040 [153] [163]15);"(NULL) (NULL)eine (NULL)usatz     (NULL)wait"
  278. 31050 [153] [163]15);"(NULL) (NULL)perationen      (NULL)wait"
  279. 31060 [153] [163]15);"(NULL) vorhanden        (NULL)wait"
  280. 31070 [153] [163]15);"(NULL)                  (NULL)wait"
  281. 31080 [153] [163]15);"/tantantantantantantantantantantantantantantantantantanexpwait"
  282. 31090 [141] 51000:xo[178]xp:[139] yo[179]3 [176] yo[177]10 [167] xp[178]0
  283. 31092 [139] xp[179]15 [176] xp[177]31 [167] [158] [165]ad(8):[158] [165]ad(18):yo[178]yp:fl[178]fl [176] 1:[142]
  284. 31094 [137] 31090
  285. 31200 [129] i[178]0 [164] ao%[171]1
  286. 31210 [153] [163]15);"(NULL) ";[200](no$(i)[170]"               ",16);" (NULL)wait"
  287. 31220 [130] i
  288. 31230 [153] [163]15);"/tantantantantantantantantantantantantantantantantantanexpwait"
  289. 31240 [141] 51000:xo[178]xp:[139] yp[179]3 [176] yp[177]ao%[170]4 [167] xp[178]0
  290. 31250 [139] xp[179]16 [176] xp[177]34 [167] [158] [165]ad(8):[158][165]ad(18):yo[178]yp:fl[178]fl [176] 1:[142]
  291. 31260 [139] yp[179]5 [167] 31240
  292. 31270 f[178]1:[147] dn$[170]":"[170]fo$(yp[171]5),da,1
  293. 31280 [153]"load";:[158] so(yp[171]5)
  294. 31290 f[178]2:[147]"mausi 64",da,1
  295. 31300 [158] [165]ad(10):[158] [165]ad(18):[137] 1100
  296. 31970 :
  297. 31980 [143] *** file ***
  298. 31990 :
  299. 32000 [158] [165]ad(7) :[143] - scr retten
  300. 32002 [158] [165]ad(13),4,1
  301. 32010 [153] "(NULL)    /tantantantantantantan^wait"
  302. 32011 [139] mf%[178]144 [167] 32400
  303. 32012 [153] "(NULL) (NULL)oeschen   (NULL)wait"
  304. 32014 [153] "(NULL) (NULL)mbenennen (NULL)wait"
  305. 32016 [153] "(NULL) (NULL)erdoppeln (NULL)wait"
  306. 32018 [153] "(NULL) atnnhaengen  (NULL)wait"
  307. 32020 [153] "(NULL) (NULL)chuetzen  (NULL)wait"
  308. 32022 [153] "(NULL) atnufheben   (NULL)wait"
  309. 32024 [153] "(NULL) (NULL)chliessen (NULL)wait"
  310. 32026 [153] "/tantantantantantantantantantantantanexp"
  311. 32030 [141] 51000:xo[178]xp:yo[178]yp:[139] yp[179]3 [176] yp[177]12 [167] xp[178]99
  312. 32032 [139] xp[177]14 [167] [158] [165]ad(8):[158] [165]ad(18):fl[178]fl [176] 1:[142]
  313. 32040 a[178]yp[171]4:[139] yp[179]1 [167] 32030
  314. 32042 [145] a [141] 32050,32070,32100,32230,32140,32210,32220
  315. 32044 [137] 32030
  316. 32050 fb%[178]fb%[170][198]([202](fe$(mf%),18))[170][198]([202](fe$(mf%),19))[172]256
  317. 32052 t1$[178][202](fe$(mf%),2,16)
  318. 32053 t2$[178]"(NULL)oeschen?"
  319. 32054 [141] 55000:[139] f [167] [142]
  320. 32055 [139] [201](t1$,1)[178][199](160) [167] t1$[178][200](t1$,[195](t1$)[171]1):[137] 32055
  321. 32056 [159] 15,da,15,"s"[170]dn$[170]":"[170]t1$
  322. 32058 [160] 15
  323. 32060 [129] i[178]mf% [164] af%
  324. 32062 fe$(i)[178]fe$(i[170]1)
  325. 32064 [130] i
  326. 32066 af%[178]af%[171]1:f%[178]1
  327. 32068 [142]
  328. 32070 t$[178][202](fe$(mf%),2,16)
  329. 32072 [139] [201](t$,1)[178][199](160) [167] t$[178][200](t$,[195](t$)[171]1):[137] 32072
  330. 32074 ta$[178]t$
  331. 32075 f$[178]"(NULL)euer (NULL)ame?":l[178]16
  332. 32076 [141] 53000:[139] f [167] [142]
  333. 32078 t$[178][200](t$,16):tn$[178]t$
  334. 32080 [139] [195](t$)[179]16 [167] t$[178]t$[170][199](160):[137] 32080
  335. 32082 fe$(mf%)[178][200](fe$(mf%),1)[170]t$[170][202](fe$(mf%),18):f%[178]1
  336. 32090 [159] 15,da,15,"r"[170]dn$[170]":"[170]tn$[170]"="[170]ta$:[160] 15:[142]
  337. 32100 f$[178]"(NULL)ame der (NULL)opie?":l[178]16:t$[178]"":[141] 53000:[139] f [167] [142]
  338. 32110 a$[178][202](fe$(mf%),2,16)
  339. 32112 [139] [201](a$,1)[178][199](160) [167] a$[178][200](a$,[195](a$)[171]1):[137] 32112
  340. 32120 [159] 15,da,15,"c"[170]dn$[170]":"[170]t$[170]"="[170]dn$[170]":"[170]a$:[160] 15
  341. 32130 [141] 45000:f%[178]1:[142]
  342. 32140 a[178][198](fe$(mf%)):a[178]a [176] 64:fe$(mf%)[178][199](a)[170][202](fe$(mf%),2)
  343. 32150 [159] 15,da,15:[159] 2,da,2,"#"
  344. 32160 [152]15,"u1: 2 ";dn$;[198]([202](fe$(mf%),20));[198]([202](fe$(mf%),21))
  345. 32170 [152]15,"b-p: 2";[198]([202](fe$(mf%),22))
  346. 32180 [152]2,[199](a);
  347. 32190 [152]15,"u2: 2 ";dn$;[198]([202](fe$(mf%),20));[198]([202](fe$(mf%),21))
  348. 32200 [160] 2:[160] 15:f%[178]2:[142]
  349. 32210 a[178][198](fe$(mf%)):a[178]a [175] 191:fe$(mf%)[178][199](a)[170][202](fe$(mf%),2):[137] 32150
  350. 32220 a[178][198](fe$(mf%)):a[178]a [176] 128:fe$(mf%)[178][199](a)[170][202](fe$(mf%),2):[137] 32150
  351. 32230 f$[178]"an welche str$atei?":t$[178]"":l[178]16:[141] 53000:[139] f [167] [142]
  352. 32240 f$[178]"(NULL)ame neue str$atei?":n$[178]t$:t$[178]"":[141] 53000:[139] f [167] [142]
  353. 32250 a$[178][202](fe$(mf%),2,16)
  354. 32260 [139] [201](a$,1)[178][199](160) [167] a$[178][200](a$,[195](a$)[171]1):[137] 32260
  355. 32270 [139] n$[178]t$ [176] t$[178]a$ [176] n$[178]a$ [167] t1$[178]"str$ie (NULL)amen muessen"
  356. 32280 [139] n$[178]t$ [176] t$[178]a$ [176] n$[178]a$ [167] t2$[178]"(NULL)erschieden sein":[141] 50000:[142]
  357. 32290 [159] 15,da,15,"c"[170]dn$[170]":"[170]t$[170]"="[170]dn$[170]":"[170]a$[170]","[170]dn$[170]":"[170]n$:[160] 15
  358. 32300 [141] 45000:f%[178]1:[142]
  359. 32400 [153] "(NULL)            (NULL)wait"
  360. 32410 [153] "(NULL) (NULL)ein ascile  (NULL)wait"
  361. 32420 [153] "(NULL) markiert   (NULL)wait"
  362. 32430 [153] "(NULL)            (NULL)wait"
  363. 32440 [153] "/tantantantantantantantantantantantanexpwait"
  364. 32450 [141] 51000:xo[178]xp:[139] yp[179]4 [176] yp[177]9 [167] xp[178]255
  365. 32460 [139] xp[179]15 [167] 32450
  366. 32470 [158] [165]ad(8):[158] [165]ad(18):yo[178]yp:fl[178]fk [176] 1:[142]
  367. 32970 :
  368. 32980 [143] *** disk ***
  369. 32990 :
  370. 33000 [158] [165]ad(7) :[143] - scr retten
  371. 33010 [158] [165]ad(13),4,1
  372. 33020 [153] [163]5);"orexp    /tantantantantantantan^wait"
  373. 33030 [153] [163]5);"(NULL) ascormatieren (NULL)wait"
  374. 33040 [153] [163]5);"(NULL) (NULL)mbenennen  (NULL)wait"
  375. 33050 [153] [163]5);"(NULL) atnufraeumen  (NULL)wait"
  376. 33060 [153] [163]5);"(NULL) (NULL)oeschen    (NULL)wait"
  377. 33070 [153] [163]5);"(NULL) (NULL)chuetzen   (NULL)wait"
  378. 33080 [153] [163]5);"(NULL) atnufheben    (NULL)wait"
  379. 33090 [153] [163]5);"/tantantantantantantantantantantantantanexpwait"
  380. 33100 [141] 51000:xo[178]xp:yo[178]yp:[139] yp[179]4 [176] yp[177]11 [167] xp[178]0
  381. 33110 [139] xp[179]5 [176] xp[177]19 [167] [158] [165]ad(8):[158] [165]ad(18):fl[178]fl [176] 1:[142]
  382. 33120 [139] yp[178]4 [176] yp[178]11 [167] 33100
  383. 33130 [145] yp[171]4 [141] 33150,33210,33320,33360,33500,33650
  384. 33140 [139] f[178]0 [167] [141] 45000:f%[178]3:mf%[178]144
  385. 33142 [137] 33100
  386. 33150 f$[178]"str$isk (NULL)ame?":t$[178]"":l[178]16:[141] 53000:n$[178]t$:[139] f [167] [142]
  387. 33160 f$[178]"str$isk right$str$?":t$[178]"":l[178]2:[141] 53000:[139] f [167] [142]
  388. 33170 t1$[178]"str$isk ascormatieren"
  389. 33180 t2$[178]"(NULL)ind (NULL)ie sicher?"
  390. 33190 [141] 55000:[139] f [167] [142]
  391. 33200 [159] 15,da,15,"n"[170]dn$[170]":"[170]n$[170]","[170]t$:[160] 15:[142]
  392. 33210 f$[178]"neuer (NULL)ame?":t$[178][200](dh$,16):l[178]16:[141] 53000:[139] f [167] [142]
  393. 33220 f$[178]"neue right$str$?":n$[178]t$:t$[178][202](dh$,19,5):l[178]5:[141] 53000:[139] f [167] [142]
  394. 33230 [159] 15,da,15:[159] 2,da,2,"#"
  395. 33240 [152]15,"u1: 2 ";dn$;18;0
  396. 33250 [152]15,"b-p: 2 144"
  397. 33260 [139] [195](n$)[179]16 [167] n$[178]n$[170][199](160):[137] 33260
  398. 33270 [152]2,n$;
  399. 33280 [152]15,"b-p: 2 162"
  400. 33290 [152]2,t$[170][201]("xx"[170][199](160)[170]"2a",5[171][195](t$));
  401. 33300 [152]15,"u2: 2 ";dn$;18;0
  402. 33310 [160] 2:[160] 15:[142]
  403. 33320 t1$[178]"str$isk atnufraeumen?"
  404. 33330 t2$[178]"(NULL)ind (NULL)ie sicher?"
  405. 33340 [141] 55000:[139] f [167] [142]
  406. 33350 [159] 15,da,15,"v":[160] 15:[142]
  407. 33360 f$[178]"(NULL)euer str$isk (NULL)ame?":t$[178][200](dh$,16):l[178]16:[141] 53000:[139] f [167] [142]
  408. 33370 t1$[178]"str$isk (NULL)oeschen?"
  409. 33380 t2$[178]"(NULL)ind (NULL)ie sicher?"
  410. 33390 [141] 55000:[139] f [167] [142]
  411. 33400 [159] 15,da,15
  412. 33410 [139] [201](t$,1)[178][199](160) [167] t$[178][200](t$,[195](t$)[171]1):[137] 33410
  413. 33420 [152]15,"n";dn$;":";t$
  414. 33430 [132]15,a,a$
  415. 33440 [139] a[178]0 [167] 33470
  416. 33450 t1$[178]"!! str$isk ascehler !!"
  417. 33460 t2$[178]a$:[141] 50000
  418. 33470 [160] 15:[142]
  419. 33500 t1$[178]"str$isk schuetzen?!"
  420. 33510 t2$[178]"(NULL)ind (NULL)ie sicher?"
  421. 33520 [141] 55000:[139] f [167] [142]
  422. 33530 [159] 15,da,15
  423. 33540 [152]15,"i"[170]dn$
  424. 33550 [159] 2,da,2,"#"
  425. 33560 [152]15,"u1 2 ";dn$;18;0
  426. 33570 [152]15,"b-p 2 2"
  427. 33580 [152]2,"x";
  428. 33590 [152]15,"u2 2";dn$;18;0
  429. 33600 [160] 2
  430. 33610 [152]15,"i"[170]dn$
  431. 33620 [160] 15
  432. 33630 f[178]1:[142]
  433. 33650 t1$[178]"str$isk freigeben?!"
  434. 33660 t2$[178]"(NULL)ind (NULL)ie sicher?"
  435. 33670 [141] 55000:[139] f [167] [142]
  436. 33680 [159] 15,da,15
  437. 33690 [152]15,"i"[170]dn$
  438. 33700 [159] 2,da,2,"#"
  439. 33710 [152]15,"u1 2 ";dn$;18;0
  440. 33720 [152]15,"m-w";[199](1);[199](1);[199](1);[199](65)
  441. 33730 [152]15,"b-p 2 2"
  442. 33740 [152]2,"a";
  443. 33750 [152]15,"u2 2";dn$;18;0
  444. 33760 [160] 2
  445. 33770 [152]15,"i"[170]dn$
  446. 33780 [160] 15
  447. 33790 f[178]1:[142]
  448. 33970 :
  449. 33980 [143] *** anderes ***
  450. 33990 :
  451. 34000 [158] [165]ad(7) :[143] - scr retten
  452. 34010 [158] [165]ad(13),4,1
  453. 34020 [153] [163]10);"ortanexp       /tantantantantantantantan^wait"
  454. 34030 [153] [163]10);"(NULL) str$isk wechseln    (NULL)wait"
  455. 34040 [153] [163]10);"-tantantantantantantantantantantantantantantantantantan<wait"
  456. 34050 [153] [163]10);"(NULL) (NULL)otizen          (NULL)wait"
  457. 34060 [153] [163]10);"(NULL) (NULL)usatz aendern   (NULL)wait"
  458. 34070 [153] [163]10);"-tantantantantantantantantantantantantantantantantantan<wait"
  459. 34080 [153] [163]10);"(NULL) (NULL)rogramm starten (NULL)wait"
  460. 34090 [153] [163]10);"(NULL) peekasic v 2.0      (NULL)wait"
  461. 34100 [153] [163]10);"/tantantantantantantantantantantantantantantantantantanexpwait"
  462. 34110 [141] 51000:xo[178]xp:yo[178]yp:[139] yp[179]4 [176] yp[177]12 [167] xp[178]0
  463. 34120 [139] xp[179]10 [176] xp[177]30 [167] fl[178]fl [176] 1:[158] [165]ad(8):[158] [165]ad(18):[142]
  464. 34130 [139] yp[178]6 [176] yp[178]9 [176] yp[178]4 [167] 34110
  465. 34140 [145] yp[171]4 [141] 34170,20000,35000,34300,20000,34190,34180
  466. 34150 [139] fl[179]2 [167] 34110
  467. 34160 [158] [165]ad(8):[158] [165]ad(18):fl[178]fl [176] 1:xo[178]255:[142]
  468. 34170 t1$[178]"str$isk wechseln"
  469. 34172 t2$[178]"(NULL)ind (NULL)ie sicher?"
  470. 34174 [141] 55000:[139] f [167] [142]
  471. 34178 fl[178]fl [176] 2:[142]
  472. 34180 t1$[178]"(NULL)aus str$(NULL)(NULL)"
  473. 34182 t2$[178]"(NULL)erlassen?"
  474. 34184 [141] 55000:[139] f [167] [142]
  475. 34188 fl[178]fl [176] 4:[142]
  476. 34190 [139] mf%[177]af% [167] [142]
  477. 34192 t1$[178][202](fe$(mf%),2,16)
  478. 34193 t2$[178]"(NULL)tarten?"
  479. 34194 [141] 55000:[139] f [167] [142]
  480. 34198 fl[178]fl [176] 8:[142]
  481. 34290 [143] --- zuzatz bearbiten ---
  482. 34300 [158] [165]ad(7)
  483. 34310 [158] [165]ad(13),6,1
  484. 34320 [153] [163]8);"ortantantantantantantantantantantantantantantantantantantantantan^wait"
  485. 34330 [153] [163]8);"(NULL) wait (NULL)usatz peekearbeiten  (NULL)wait"
  486. 34340 [153] [163]8);"-tantantantantantantantantantantantantantantantantantantantantan<wait"
  487. 34350 [153] [163]8);"(NULL) (NULL)rogramm in (NULL)usatz  (NULL)wait"
  488. 34360 [153] [163]8);"(NULL) str$aten aendern       (NULL)wait"
  489. 34370 [153] [163]8);"(NULL) (NULL)usatz loeschen     (NULL)wait"
  490. 34380 [153] [163]8);"(NULL) (NULL)usatz abspeichern  (NULL)wait"
  491. 34390 [153] [163]8);"/tantantantantantantantantantantantantantantantantantantantantanexpwait"
  492. 34400 [141] 51000:xo[178]xp:yo[178]yp:[139] yp[179]6 [176] yp[177]13 [167] xp[178]0
  493. 34410 [139] xp[179]8 [176] xp[177]30 [167] [158] [165]ad(8):[158] [165]ad(18):fl[178]fl [176] 1:[142]
  494. 34420 [139] yp[179]9 [176] yp[178]13 [167] 34400
  495. 34430 [145] yp[171]8 [141] 34500,34600,34700,34800
  496. 34440 [137] 34400
  497. 34490 [143] --- in zusatz ---
  498. 34500 [139] ao%[179]10 [167] 34510
  499. 34502 t1$[178]"(NULL)ein (NULL)latz mehr"
  500. 34504 t2$[178]"fuer (NULL)usaetze!!"
  501. 34506 [141] 50000
  502. 34508 [142]
  503. 34510 [139] mf%[179]144 [167] 34520
  504. 34512 t1$[178]"(NULL)ein (NULL)rogramm"
  505. 34514 t2$[178]"(NULL)arkiert!!"
  506. 34516 [141] 50000
  507. 34518 [142]
  508. 34520 fo$(ao%)[178][202](fe$(mf%),2,16)
  509. 34522 f$[178]"(NULL)ame im (NULL)enue?"
  510. 34524 t$[178]"":l[178]16:[141] 53000: [139] f [167] [142]
  511. 34526 no$(ao%)[178]t$
  512. 34530 f$[178]"(NULL)tartadresse?"
  513. 34532 t$[178]"peekasic":l[178]6:[141] 53000:[139] f [167] [142]
  514. 34534 so(ao%)[178][197](t$):[139] so(ao%)[179]0 [167] 34530
  515. 34536 [139] so(ao%)[177]2[174]16[171]1 [167] 34530
  516. 34538 [139] so(ao%)[179][177][181](so(ao%)) [167] 34530
  517. 34540 t1$[178]no$(ao%)
  518. 34542 t2$[178]"uebernehmen?"
  519. 34544 [141] 55000:[139] f [167] [142]
  520. 34546 ao%[178]ao%[170]1:[142]
  521. 34600 [141] 34900:[139] f [176] no[178]0 [167] [142]
  522. 34610 f$[178]"(NULL)euer (NULL)ame?"
  523. 34620 t$[178]no$(no[171]1):l[178]16:[141] 53000:[139] f [167] [142]
  524. 34630 no$(no[171]1)[178]t$
  525. 34640 f$[178]"(NULL)eue (NULL)tartaddr.?"
  526. 34642 t$[178][202]([196](so(no[171]1)),2):[139] so(no[171]1)[178]0 [167] t$[178]"peekasic"
  527. 34650 l[178]6:[141] 53000:[139] f [167] [142]
  528. 34660 [139] [197](t$)[179]0 [167] 34640
  529. 34662 [139] [197](t$)[177]2[174]16[171]1 [167] 34640
  530. 34664 [139] [197](t$)[179][177][181]([197](t$)) [167] 34640
  531. 34670 so(no[171]1)[178][197](t$):[142]
  532. 34690 [143] --- loeschen ---
  533. 34700 [141] 34900:[139] f [176] no[178]0 [167] [142]
  534. 34710 t1$[178]no$(no[171]1)
  535. 34720 t2$[178]"leschen?"
  536. 34730 [141] 55000:[139] f [167] [142]
  537. 34740 [129] i[178]no[170]1 [164] ao%
  538. 34750 no$(i[171]2)[178]no$(i[171]1):so(i[171]2)[178]so(i[171]1):fo$(i[171]2)[178]fo$(i[171]1)
  539. 34760 [130] i
  540. 34770 ao%[178]ao%[171]1:[142]
  541. 34800 t1$[178]"(NULL)usaetze"
  542. 34802 t2$[178]"abspeichern?"
  543. 34804 [141] 55000:[139] f [167] [142]
  544. 34806 [159] 15,da,15
  545. 34808 [152]15,"s";dn$;":options"
  546. 34810 [132]15,a,a$:[139] a[178][179]20 [167] 34820
  547. 34812 t1$[178]"!! str$isk ascehler !!"
  548. 34814 t2$[178]a$
  549. 34816 [141] 50000
  550. 34818 [160]2:[160] 15:[142]
  551. 34820 [159] 2,da,2,dn$[170]":options,u,w"
  552. 34822 [132]15,a,a$:[139] a [167] 34812
  553. 34824 [152]2,ao%
  554. 34826 [129] i[178]0 [164] ao%[171]1
  555. 34828 [152]2,[199](34);no$(i);[199](34);",";fo$(i);",";so(i)
  556. 34830 [130] i
  557. 34832 [132]15,a,a$:[139] a [167] 34812
  558. 34834 [160] 2
  559. 34836 [160] 15
  560. 34838 [142]
  561. 34900 f[178]0:[139] ao%[177]0 [167] 34910
  562. 34902 t1$[178]"(NULL)eine (NULL)usaetze"
  563. 34904 t2$[178]"vorhanden"
  564. 34906 [141] 50000:f[178]1:[142]
  565. 34910 [158] [165]ad(7):[158] [165]ad(13),4,1
  566. 34920 [153] [163]5);"ortantantantantantantantantantantantantantantantantantan^wait"
  567. 34922 [153] [163]5);"(NULL) wait    (NULL)usaetze:    (NULL)wait"
  568. 34924 [153] [163]5);"-tantantantantantantantantantantantantantantantantantan<wait"
  569. 34926 [129] i[178]0 [164] ao%[171]1
  570. 34928 [153] [163]5);"(NULL) ";[200](no$(i)[170]"             ",16);" (NULL)wait"
  571. 34930 [130] i
  572. 34932 [153] [163]5);"/tantantantantantantantantantantantantantantantantantanexpwait"
  573. 34934 [141] 51000:xo[178]xp:yo[178]yp:[139] yp[179]4 [176] yp[177]7[170]ao% [167] xp[178]0
  574. 34936 [139] xp[179]5 [176] xp[177]25 [167] [158] [165]ad(8):[158] [165]ad(18):no[178]0:fl[178]fl [176] 1:[142]
  575. 34938 [139] yp[179]7 [176] yp[178]8[170]ao% [167] no[178]0:[137] 34950
  576. 34940 no[178]yp[171]6
  577. 34950 [158] [165]ad(8):[158] [165]ad(18):[142]
  578. 34994 :
  579. 34996 [143] *** notizen ***
  580. 34998 :
  581. 35000 [158] [165]ad(7):[158] [165]ad(13),2,1:[151] 198,0
  582. 35002 q$[178]"":[129] i[178]217 [164] 242:q$[178]q$[170][199]([194](i)):[130] i
  583. 35010 [153]" f1 - (NULL)eile loeschen  f3 - (NULL)eile einf.  wait";
  584. 35020 [153]" f5 - (NULL)est loeschen   f7 - drucken      wait";
  585. 35030 [158] [165]ad(13),24,1
  586. 35032 [158] [165]ad(13),24,1:[153]" (NULL)(NULL)(NULL)(NULL) - (NULL)peichern und zurueck           wait";
  587. 35034 [153]" andere (NULL)asten - normale ascunktion      wait";
  588. 35036 x[178]1:y[178]0
  589. 35038 [158] [165]ad(16),4,1,20,40,32,[194](646)
  590. 35040 [129] i[178]0 [164] 19
  591. 35050 [158] [165]ad(13),i[170]4,1:[153]np$(i);
  592. 35060 [130] i
  593. 35100 [158] [165]ad(14),y[170]4,x,1,1
  594. 35110 [161] a$:[139] a$[178]"" [167] 35110
  595. 35120 [158] [165]ad(15),y[170]4,x,1,1
  596. 35150 a[178][198](a$):[139] a[179]31 [176](a[177]127 [175] a[179]160)[167] 35300
  597. 35160 [158] [165]ad(13),y[170]4,x:[153] a$;
  598. 35170 np$(y)[178][200](np$(y),x[171]1)[170]a$[170][202](np$(y),x[170]1)
  599. 35180 x[178]x[170]1:[139] x[177]40 [167] x[178]1:y[178]y[170]1:[139] y[177]19 [167] y[178]19:x[178]40
  600. 35190 [137] 35100
  601. 35300 [139] a[178]13 [176] a[178]141 [167] x[178]1:y[178]y[170]1:[139] y[177]19 [167] y[178]19
  602. 35310 [139] a[178]20 [167] x[178]x[171]1:[139] x[178]0 [167] x[178]40:y[178]y[171]1:[139] y[179]0 [167] y[178]0
  603. 35320 [139] a[178]20 [167] np$(y)[178][200](np$(y),x[171]1)[170][202](np$(y),x[170]1)[170]" "
  604. 35330 [139] a[178]148 [167] np$(y)[178][200]([200](np$(y),x[171]1)[170]" "[170][202](np$(y),x),40)
  605. 35340 [139] a[178]20 [176] a[178]148 [167] [158] [165]ad(13),y[170]4,1:[153] np$(y)
  606. 35350 [139] a[178]19 [167] y[178]0:x[178]1
  607. 35360 [139] a[179][177]147 [167] 35390
  608. 35370 : [129] i[178]0 [164] 19:np$(i)[178]"                                        ":[130] i
  609. 35380 x[178]1:y[178]0:[137] 35040
  610. 35390 [139] a[178]133 [167] [129] i[178]y [164] 18:np$(i)[178]np$(i[170]1):[130] i
  611. 35400 [139] a[178]133 [167] np$(19)[178]"                                        "
  612. 35410 [139] a[178]134 [167] [129] i[178]19 [164] y[170]1 [169][171]1:np$(i)[178]np$(i[171]1):[130] i
  613. 35420 [139] a[178]134 [167] np$(y)[178]"                                        "
  614. 35430 [139] a[178]133 [176] a[178]134 [167] [129] i[178]y [164] 19:[158] [165]ad(13),i[170]4,1:[153] np$(i):[130] i
  615. 35440 [139] a[178]135 [167] np$(y)[178][200](np$(y),x[171]1)
  616. 35450 [139] a[178]135[167]np$(y)[178][200](np$(y)[170]"                                        ",40)
  617. 35455 [139] a[178]135 [167] [158] [165]ad(13),y[170]4,1:[153] np$(y)
  618. 35460 [139] a[178]136 [167] [129] i[178]217 [164] 242:[151] i,[198]([202](q$,i[171]216)[170][199](0)):[130] i
  619. 35462 [139] a[178]136 [167] [158] [165]ad(13),2,2:[153] "       wait":[141] 52000
  620. 35464 [139] a[178]136 [167] [158] [165]ad(13),2,2:[153] "f1 - (NULL)ewait"
  621. 35466 [139] a[178]17 [167] y[178]y[170]1:[139] y[177]19 [167] y[178]19
  622. 35470 [139] a[178]145 [167] y[178]y[171]1:[139] y[179]0 [167] y[178]0
  623. 35475 [139] a[178]29 [167] x[178]x[170]1:[139] x[177]40 [167] x[178]1:y[178]y[170]1:[139] y[177]19 [167] y[178]19:x[178]40
  624. 35480 [139] a[178]157 [167] x[178]x[171]1:[139] x[179]1 [167] x[178]40:y[178]y[171]1:[139] y[179]0 [167] y[178]0:x[178]1
  625. 35490 [139] a[179][177]3 [167] [137] 35100
  626. 35500 [129] i[178]217 [164] 242:[151] i,[198]([202](q$,i[171]216)[170][199](0)):[130] i
  627. 35502 [158] [165]ad(13),2,2:[153] "str$ruckenwait"
  628. 35504 t1$[178]"(NULL)otizen"
  629. 35510 t2$[178]"apspeichern?"
  630. 35520 [141] 55000:[139] f[178]0 [167] [141] 47000
  631. 35530 [158] [165]ad(8):[158] [165]ad(18):[142]
  632. 36000 [137] 9999
  633. 39970 :
  634. 39980 [143] *** show screen ***
  635. 39990 :
  636. 40000 [158] [165]ad(0):[143] * maus starten
  637. 40002 [153]
  638. 40004 [153]"load";[199](14);[199](8);
  639. 40010 [153]"============= (NULL)atn(NULL)(NULL) str$(NULL)(NULL)  64 =============";
  640. 40020 [153]" str$rucken  naechste (NULL)eite  letzte (NULL)eite"
  641. 40030 [153]" ascile  str$isk  atnnderes  (NULL)usatz  (NULL)arameter"
  642. 40032 [158] [165]ad(13),10,1
  643. 40034 [153] [163]9);"(len) 1986  by str$irk mid$ansen"
  644. 40036 [153] [163]10);"(NULL)ersion 1.0 04.05.1986"
  645. 40040 [158] [165]ad(13),24,1
  646. 40048 [153]" ascile:................ (NULL)yp:..... peeklk:...";
  647. 40050 [153]" str$isk:................ right$str$:..... ascre:...";
  648. 40060 [158] [165]ad(14),1,1,3,40
  649. 40070 [158] [165]ad(14),24,1,2,40
  650. 40080 [142]
  651. 40970 :
  652. 40980 [143] *** insert disk ***
  653. 40990 :
  654. 41000 t1$[178]" peekitte str$iskette"
  655. 41010 t2$[178]"   einlegen !!"
  656. 41020 [141] 50000
  657. 41030 [159] 15,da,15
  658. 41040 [152]15,"i"
  659. 41050 [132]15,a:[139] a[179][177]0 [167] 41000
  660. 41060 [160] 15
  661. 41070 [142]
  662. 41970 :
  663. 41980 [143] *** read parameter ***
  664. 41990 :
  665. 42000 [159] 15,da,15
  666. 42010 [159] 2,da,2,dn$[170]":parameter,u,r"
  667. 42020 [132]15,a,a$:[139] a[178]0 [167] 42090
  668. 42022 [139] a[178]62 [167] 42500
  669. 42030 [160] 2
  670. 42040 [160] 15
  671. 42050 t1$[178]"! str$isk  ascehler !"
  672. 42060 t2$[178]a$
  673. 42070 [141] 50000
  674. 42080 [137] 42000
  675. 42090 [161]#2,a$,b$,c$:[143] - farben holen
  676. 42100 [151] 53280,[198](a$[170][199](0)):[143] - rahmen
  677. 42110 [151] 53281,[198](b$[170][199](0)):[143] - hintergrund
  678. 42120 [151] 646,[198](c$[170][199](0)):[143] - text
  679. 42122 [158] [165]ad(18):[143] - text farbe setzen
  680. 42130 [161]#2,a$,b$:[143] - maus daten
  681. 42140 [151] 703,[198](a$[170][199](0)):[143] - maus daten (farbe)
  682. 42150 [151] 693,[198](b$[170][199](0)):[143] - maus speed
  683. 42160 [161]#2,a$,b$,c$,d$:[143] - geraete nummern
  684. 42170 da[178][198](a$[170][199](0)):[143] - unit disk (8-15)
  685. 42180 dn$[178]b$:[143] - dirve disk (0/1)
  686. 42190 pa[178][198](c$[170][199](0)):[143] printer adr. (2/4-6)
  687. 42200 ps[178][198](d$[170][199](0)):[143] sec. adr. (0-15)
  688. 42210 lp$[178]"":[143] - einst. 8 lpi lesen bis $ff
  689. 42220 [161]#2,a$:[139] a$[179][199](255) [167] lp$[178]lp$[170]a$:[137] 42220
  690. 42230 gk$[178]"":[143] - umschalten gross/klein
  691. 42240 [161]#2,a$:[139] a$[179][199](255) [167] gk$[178]gk$[170]a$:[137] 42240
  692. 42250 re$[178]"":[143] - revers ein
  693. 42260 [161]#2,a$:[139] a$[179][199](255) [167] re$[178]re$[170]a$:[137] 42260
  694. 42270 ra$[178]"":[143] - revers aus
  695. 42280 [161]#2,a$:[139] a$[179][199](255) [167] ra$[178]ra$[170]a$:[137] 42280
  696. 42290 cr$[178]"":[143] - return zeichen
  697. 42300 [161]#2,a$:[139] a$[179][199](255) [167] cr$[178]cr$[170]a$:[137] 42300
  698. 42310 [132]15,a,a$:[139] a[177]0 [167] 42030
  699. 42320 [160] 2
  700. 42330 [160] 15
  701. 42340 [142]
  702. 42500 [151] 53280,0:[143] - rahmen schwarz
  703. 42510 [151] 53281,0:[143] - bild schwarz
  704. 42520 [151] 646,7:[143]- text gelb
  705. 42530 [158] [165]ad(18)
  706. 42540 [151] 703,11:[143] - maus farbe grau1
  707. 42542 [151] 693,230:[143] - maus speed
  708. 42550 da[178]8:dn$[178]"0":[143] - floppy adressen
  709. 42560 pd[178]4:ps[178]7:[143] - drucker adrssen
  710. 42570 lp$[178]"":[143] - kein code fuer 8 lpi
  711. 42580 gk$[178]"":[143] - keine umschaltung
  712. 42590 re$[178]"":[143] - rvs ein
  713. 42600 ra$[178]"wait":[143] - rvs aus
  714. 42610 cr$[178][199](8)[170][199](13)[170][199](15):[143] - cr code mps 801
  715. 42620 [137] 42320
  716. 42970 :
  717. 42980 [143] *** read note pad ***
  718. 42990 :
  719. 43000 [159] 15,da,15
  720. 43010 [159] 2,da,2,dn$[170]":note pad,u,r"
  721. 43020 [132]15,a,a$
  722. 43030 [139] a[178]0 [167] 43100
  723. 43032 [139] a[178]62 [167] 43180
  724. 43040 t1$[178]"! str$isk  ascehler !"
  725. 43050 t2$[178]a$
  726. 43060 [160] 2
  727. 43070 [160] 15
  728. 43080 [141] 50000
  729. 43090 [137] 43000
  730. 43100 [129] i[178]0 [164] 19
  731. 43110 [132]2,np$(i)
  732. 43120 [130] i
  733. 43130 [137] 43150
  734. 43140 [139] a[177]0 [167] 43040
  735. 43150 [160] 2
  736. 43160 [160] 15
  737. 43170 [142]
  738. 43180 [129] i[178]0 [164] 19
  739. 43190 np$(i)[178]"                                        "
  740. 43200 [130] i
  741. 43210 [137] 43150
  742. 43970 :
  743. 43980 [143] *** read options ***
  744. 43990 :
  745. 44000 [159] 15,da,15
  746. 44010 [159] 2,da,2,dn$[170]":options,u,r"
  747. 44020 [132]15,a,a$
  748. 44030 [139] a[178]0 [167] 44100
  749. 44032 [139] a[178]62 [167] ao%[178]0:[137] 44170
  750. 44040 t1$[178]"! str$isk  ascehler !"
  751. 44050 t2$[178]a$
  752. 44060 [160] 2
  753. 44070 [160] 15
  754. 44080 [141] 50000
  755. 44090 [137] 44000
  756. 44100 [132]2,ao%:[143] - anz. options
  757. 44110 [139] ao%[178]0 [167] 44150
  758. 44120 [129] i[178]0 [164] ao%[171]1
  759. 44130 [132]2,no$(i),fo$(i),so(i)
  760. 44140 [130] i
  761. 44150 [132]15,a,a$
  762. 44160 [139] a[177]0 [167] 44040
  763. 44170 [160] 2
  764. 44180 [160] 15
  765. 44190 [142]
  766. 44970 :
  767. 44980 [143] *** read directory ***
  768. 44990 :
  769. 45000 [159] 15,da,15
  770. 45010 [159] 2,da,2,"#"
  771. 45020 [132]15,a,a$
  772. 45030 [139] a[178]0 [167] 45100
  773. 45040 t1$[178]"! str$isk  ascehler !"
  774. 45050 t2$[178]a$
  775. 45060 [160] 2
  776. 45070 [160] 15
  777. 45080 [141] 50000
  778. 45090 [137] 45000
  779. 45100 dh$[178]""
  780. 45102 [143]
  781. 45110 [152]15,"u1:";2;dn$;18;0
  782. 45120 [152]15,"b-p: 2 144"
  783. 45130 [129] i[178]144 [164] 166
  784. 45140 [161]#2,a$:dh$[178]dh$[170][200](a$[170][199](0),1)
  785. 45150 [130] i
  786. 45160 [158] [165]ad(13),25,7:[153] "";[202](dh$,1,16);"wait";
  787. 45170 [158] [165]ad(13),25,27:[153] "";[202](dh$,19,5);"wait";
  788. 45180 n[178]0:f[178]0
  789. 45190 [152]15,"b-p:";2;0
  790. 45200 [161]#2,t$,s$:t[178][198](t$[170][199](0)):s[178][198](s$[170][199](0))
  791. 45210 [139] t[178]0 [176] s[178]255 [167] 45290
  792. 45220 [152]15,"u1:";2;dn$;t;s
  793. 45230 [129] i[178]0 [164] 7
  794. 45240 fe$(n)[178]"":[152]15,"b-p: 2";2[170]32[172]i
  795. 45250 [161]#2,fe$(n):[139] [198](fe$(n)[170][199](0))[178]0 [167] 45270
  796. 45252 [161]#2,a$,a$:[143] t,s ueberlesen
  797. 45260 [129] j[178]1 [164] 16:[161]#2,a$:fe$(n)[178]fe$(n)[170][200](a$[170][199](0),1):[130] j:[143] namen
  798. 45261 [152]15,"b-p: 2";2[170]32[172]i[170]28
  799. 45262 [161]#2,a$,b$:fe$(n)[178]fe$(n)[170][200](a$[170][199](0),1)[170][200](b$[170][199](0),1)
  800. 45263 fe$(n)[178]fe$(n)[170]t$[170]s$[170][199](2[170]32[172]i)
  801. 45264 f[178]f[170][198](a$[170][199](0))[170][198](b$[170][199](0))[172]256
  802. 45266 n[178]n[170]1
  803. 45270 [130] i
  804. 45280 [137] 45190
  805. 45290 af%[178]n[171]1
  806. 45300 [160] 2
  807. 45310 [160] 15
  808. 45320 fb%[178]664[171]f
  809. 45330 [158] [165]ad(13),25,37:[153] "";[201]("  "[170][196](fb%),3);"wait";
  810. 45332 [143]
  811. 45340 [142]
  812. 45970 :
  813. 45980 [143] *** write parameter ***
  814. 45990 :
  815. 46000 [159] 15,da,15,"s"[170]dn$[170]":parameter"
  816. 46010 [159] 2,da,2,dn$[170]":parameter,u,w"
  817. 46020 [132]15,a,a$:[139] a[178]0 [167] 46100
  818. 46030 [160] 2
  819. 46040 [160] 15
  820. 46050 t1$[178]"! str$isk  ascehler !"
  821. 46060 t2$[178]a$
  822. 46070 [141] 50000
  823. 46080 [137] 46000
  824. 46100 [152]2,[199]([194](53280) [175] 15);:[143] - rahmen
  825. 46110 [152]2,[199]([194](53281) [175] 15);:[143] - hintergrund
  826. 46120 [152]2,[199]([194](646) [175] 15);:[143] - text
  827. 46140 [152]2,[199]([194](703));:[143] - maus daten (farbe)
  828. 46150 [152]2,[199]([194](693));:[143] - maus speed
  829. 46170 [152]2,[199](da);:[143] - unit disk (8-15)
  830. 46180 [152]2,dn$;:[143] - dirve disk (0/1)
  831. 46190 [152]2,[199](pa);:[143] printer adr. (2/4-6)
  832. 46200 [152]2,[199](ps);:[143] sec. adr. (0-15)
  833. 46210 [152]2,lp$;[199](255);:[143] - einst. 8 lpi lesen bis $ff
  834. 46230 [152]2,gk$;[199](255);:[143] - umschalten gross/klein
  835. 46250 [152]2,re$;[199](255);:[143] - revers ein
  836. 46270 [152]2,ra$;[199](255);:[143] - revers aus
  837. 46290 [152]2,cr$;[199](255);:[143] - return zeichen
  838. 46310 [132]15,a,a$:[139] a[177]0 [167] 46030
  839. 46320 [160] 2
  840. 46330 [160] 15
  841. 46340 [142]
  842. 46970 :
  843. 46980 [143] *** write note pad ***
  844. 46999 :
  845. 47000 [159] 15,da,15,"s"[170]dn$[170]":note pad"
  846. 47010 [159] 2,da,2,dn$[170]":note pad,u,w"
  847. 47020 [132]15,a,a$:[139] a[178]0 [167] 47100
  848. 47030 [160] 2
  849. 47040 [160] 15
  850. 47050 t1$[178]"! str$isk  ascehler !"
  851. 47060 t2$[178]a$
  852. 47070 [141] 50000
  853. 47080 [137] 47000
  854. 47100 [129] i[178]0 [164] 19
  855. 47110 [152]2,[199](34);np$(i);[199](34)
  856. 47120 [130] i
  857. 47130 [132]15,a,a$
  858. 47140 [139] a[177]0 [167] 47030
  859. 47150 [160] 2
  860. 47160 [160] 15
  861. 47170 [142]
  862. 49970 :
  863. 49980 [143] *** warning window out ***
  864. 49990 :
  865. 50000 [158] [165]ad(7):[143] - scr auf stack
  866. 50002 [158] [165]ad(13),2,9
  867. 50004 [153]"                              wait"
  868. 50006 [158] [165]ad(13),3,1
  869. 50008 [153]"                                       wait"
  870. 50010 [158] [165]ad(13),8,1
  871. 50020 [153] [163]10);"ortantantantantantantantantantantantantantantantantantan^"
  872. 50030 [153] [163]10);"(NULL)                  wait(NULL)"
  873. 50040 [153] [163]10);"(NULL) ";[200](t1$[170]"                ",16);" wait(NULL)"
  874. 50050 [153] [163]10);"(NULL)                  wait(NULL)"
  875. 50060 [153] [163]10);"(NULL) ";[200](t2$[170]"                ",16);" wait(NULL)"
  876. 50070 [153] [163]10);"(NULL)       *newnewrnd       wait(NULL)"
  877. 50080 [153] [163]10);"(NULL)       waitget(NULL)(NULL)get       wait(NULL)"
  878. 50090 [153] [163]10);"(NULL)       logwaitnewnewcos       wait(NULL)"
  879. 50100 [153] [163]10);"/tantantantantantantantantantantantantantantantantantanexp"
  880. 50110 fl[178]fl [176] 128:[141] 51000:[143] * get maus pos
  881. 50120 [139] [168](xp[177]17 [175] xp[179]21 [175] yp[177]13 [175] yp[179]16) [167] [137] 50110
  882. 50130 [158] [165]ad(8):[158] [165]ad(18):fl[178]fl [175] 127:[142]
  883. 50970 :
  884. 50980 [143] *** get maus pos ***
  885. 50990 :
  886. 51000 [139] (fl [175] 1)[178]1 [167] xp[178]xo:yp[178]yo:fl[178]fl [175] 254:[137] 51050
  887. 51030 [158] [165]ad(3)
  888. 51040 xp[178][165]xt(0):yp[178][165]yt(0)
  889. 51050 [139] yp[179]4 [176] yp[177]23 [167] fl[178]fl [176] 64
  890. 51052 [139] yp[177]3 [175] yp[179]24 [167] fl[178]fl [175] 191
  891. 51060 [139] yp[178]2 [175] xp[179]11 [167] [141] 52000:[137] 51000:[143] * hardcopy
  892. 51070 [139] (fl [175] 128)[178]128 [167] [142]
  893. 51080 [139] yp[178]3 [175] (fl [175] 32)[178]32 [167] [142]
  894. 51090 [139] yp[179][177]3 [167] [142]
  895. 51092 [139] [165]st(0)[177]5 [167] [142]
  896. 51100 [139] xp[179]6 [167] [141] 32000:[143] * file
  897. 51110 [139] xp[177]5 [175] xp[179]13 [175] yp[178]3 [167] [141] 33000:[143] * disk
  898. 51120 [139] xp[177]12 [175] xp[179]22 [175] yp[178]3 [167] [141] 34000:[143] * anderes
  899. 51130 [139] xp[177]21 [175] xp[179]29 [175] yp[178]3 [167] [141] 31000:[143] * zusatz
  900. 51140 [139] xp[177]28 [175] yp[178]3 [167] [141] 30000:[143] * parameter
  901. 51150 [137] 51000
  902. 51970 :
  903. 51980 [143] *** hard copy ***
  904. 51990 :
  905. 52000 t1$[178]"peekildschirminhalt"
  906. 52002 t2$[178]"atnusdrucken?"
  907. 52004 [141] 55000:[139] f [167] [142]
  908. 52008 [151] 198,0
  909. 52010 f[178]0
  910. 52020 [159] 4,pa,ps
  911. 52030 [152]4,lp$;gk$;
  912. 52110 [129] i[178]0 [164] 24
  913. 52120 [129] j[178]0 [164] 39
  914. 52130 a[178][194](j[170]i[172]40[170]1024)
  915. 52140 f[178][171](a[177]127):a[178]a[170](a[177]127)[172]128
  916. 52150 [139] a[179]32 [167] b[178]a[170]64
  917. 52160 [139] a[177]31 [175] a[179]64 [167] b[178]a
  918. 52170 [139] a[177]63 [175] a[179]96 [167] b[178]a[170]32
  919. 52180 [139] a[177]95 [167] b[178]a[170]64
  920. 52190 [139] f[178]1 [175] c[179][177]f [167] [152]4,re$;
  921. 52200 [139] f[178]0 [175] c[179][177]f [167] [152]4,ra$;
  922. 52210 c[178]f
  923. 52220 [152]4,[199](b);
  924. 52222 [161] a$:[139] a$[178]"" [167] i[178]24:j[178]39
  925. 52230 [130] j
  926. 52240 [152]4,cr$;:c[178]0
  927. 52250 [130] i
  928. 52260 [160] 4
  929. 52300 [143]
  930. 52400 [142]
  931. 52970 :
  932. 52980 [143] *** input ***
  933. 52990 :
  934. 53000 p[178]1:[151] 198,0
  935. 53010 [158] [165]ad(7)
  936. 53020 [158] [165]ad(13),9,1
  937. 53030 [153] [163]8);"ortantantantantantantantantantantantantantantantantantantantantantan^"
  938. 53040 [153] [163]8);"(NULL)                      wait(NULL)"
  939. 53050 [153] [163]8);"(NULL) ";[200](f$[170]"                   ",20);" wait(NULL)"
  940. 53060 [153] [163]8);"(NULL)                      wait(NULL)"
  941. 53070 [153] [163]8);"(NULL) <";[200]("                  ",l);">";
  942. 53080 [153] [200]("                  ",18[171]l);" wait(NULL)"
  943. 53090 [153] [163]8);"(NULL)                      wait(NULL)"
  944. 53100 [153] [163]8);"/tantantantantantantantantantantantantantantantantantantantantantanexp"
  945. 53110 [158] [165]ad(13),13,12:[153] "";t$;[200]("                 ",l[171][195](t$))
  946. 53120 [158] [165]ad(13),14,10[170]p:[153]" tab( wait"
  947. 53130 [161] a$:[139] a$[178]"" [167] 53130
  948. 53140 [139] a$[178]"cmd" [175] p[177]1 [167] p[178]p[171]1:[137] 53120
  949. 53150 [139] a$[178]"" [175] p[179][178][195](t$) [175] p[179]l [167] p[178]p[170]1:[137] 53120
  950. 53160 [139] a$[178]"load" [167] t$[178]"":a$[178]""
  951. 53170 [139] a$[178]"" [167] [158] [165]ad(13),14,11[170]p:[153]" wait":p[178]1:[137] 53110
  952. 53180 [139] a$[178][199](20) [175] p[177]1 [167] p[178]p[171]1:t$[178][200](t$,p[171]1)[170][202](t$,p[170]1):[137] 53110
  953. 53190 [139] a$[178]"save" [167] t$[178][200](t$,p[171]1)[170]" "[170][202](t$,p):[137] 53110
  954. 53200 [139] a$[178][199](13) [167] f[178]0:[137] 53260
  955. 53210 [139] a$[178]"" [167] f[178]1:[137] 53260
  956. 53220 [139] a$[178][199](141) [167] f[178][171]1:[137] 53260
  957. 53230 [139] a$[179][199](32) [176] (a$[177][199](127) [175] a$[179][199](160)) [167] 53130
  958. 53240 t$[178][200](t$,p[171]1)[170]a$[170][202](t$,p[170]1):[139] p[179]l [167] p[178]p[170]1
  959. 53250 [137] 53110
  960. 53260 [158] [165]ad(8):[142]
  961. 53970 :
  962. 53980 [143] *** show files ***
  963. 53990 :
  964. 54000 [158] [165]ad(16),4,1,20,40,32,[194](646)
  965. 54010 [129] i[178]0 [164] 19
  966. 54020 [158] [165]ad(13),4[170]i,1:[153]" ";
  967. 54030 [139] i[170]sf%[178]mf% [167] [153]"cmdsqr";
  968. 54040 [139] i[170]sf%[179][178]af% [167] [153] [202](fe$(sf%[170]i),2,16);
  969. 54050 [158] [165]ad(13),4[170]i,21:[153]" ";
  970. 54060 [139] i[170]sf%[170]20[178]mf% [167] [153]"cmdsqr";
  971. 54070 [139] i[170]sf%[170]20[179][178]af% [167] [153] [202](fe$(sf%[170]20[170]i),2,16);
  972. 54080 [130] i
  973. 54090 [142]
  974. 54970 :
  975. 54980 [143] *** ask yes/no ***
  976. 54990 :
  977. 55000 [158] [165]ad(7):[143] - scr auf stack
  978. 55002 [158] [165]ad(13),2,9
  979. 55004 [153]"                              wait"
  980. 55006 [158] [165]ad(13),3,1
  981. 55008 [153]"                                       wait"
  982. 55010 [158] [165]ad(13),8,1
  983. 55020 [153] [163]10);"ortantantantantantantantantantantantantantantantantantan^"
  984. 55030 [153] [163]10);"(NULL)                  wait(NULL)"
  985. 55040 [153] [163]10);"(NULL) ";[200](t1$[170]"                ",16);" wait(NULL)"
  986. 55050 [153] [163]10);"(NULL)                  wait(NULL)"
  987. 55060 [153] [163]10);"(NULL) ";[200](t2$[170]"                ",16);" wait(NULL)"
  988. 55070 [153] [163]10);"(NULL) *newnewrnd      *newnewnewnewrnd wait(NULL)"
  989. 55080 [153] [163]10);"(NULL) waitgetmid$aget      waitget(NULL)einget wait(NULL)"
  990. 55090 [153] [163]10);"(NULL) logwaitnewnewcos      logwaitnewnewnewnewcos wait(NULL)"
  991. 55100 [153] [163]10);"/tantantantantantantantantantantantantantantantantantanexp"
  992. 55110 fl[178]fl [176] 128:[141] 51000:[143] * get maus pos
  993. 55120 [139] xp[177]11 [175] xp[179]16 [175] yp[177]12 [175] yp[179]16 [167] f[178]0:[137] 55130
  994. 55122 [139] xp[177]21 [175] xp[179]28 [175] yp[177]12 [175] yp[179]16 [167] f[178]1:[137] 55130
  995. 55124 [137] 55110
  996. 55130 [158] [165]ad(8):[158] [165]ad(18):fl[178]fl [175] 127:[142]
  997. 59970 :
  998. 59980 [143] *** daten ***
  999. 59990 :
  1000. 60000 [143] --- color names ---
  1001. 60010 [131] schwarz,weiss,rot,tuerkis
  1002. 60020 [131] violett,gruen,blau,gelb
  1003. 60030 [131] orange,braun,hellrot,grau 1
  1004. 60040 [131] grau 2,hellgruen,hellblau,grau 3
  1005. 60050 [143] -------------------
  1006. 60060 :
  1007. 60070 [143] --- file types ---
  1008. 60080 [131] "str$val(NULL)","(NULL)val(NULL)","(NULL)(NULL)chr$","(NULL)(NULL)(NULL)","(NULL)val(NULL)"
  1009. 60090 [143] ------------------
  1010. 60100 :
  1011. 60110 [143] --- error text ---
  1012. 60120 [131] "(NULL)uelle unbekannt"
  1013. 60130 [131] "*zu viele str$ateien"
  1014. 60140 [131] "*str$atei offen"
  1015. 60150 [131] "*str$atei nicht offen"
  1016. 60160 [131] "str$atei nicht gefunden"
  1017. 60170 [131] "chr$eraet nicht vorhanden"
  1018. 60180 [131] "*keine valingabe-str$atei"
  1019. 60190 [131] "*keine atnusgabe-str$atei"
  1020. 60200 [131] "*kein str$ateiname angegeben"
  1021. 60210 [131] "falsche chr$eraetenummer"
  1022. 60220 [131] "*(NULL)val(NULL)(NULL) ohne asc(NULL)(NULL)"
  1023. 60230 [131] "*(NULL)yntax ascehler"
  1024. 60240 [131] "*(NULL)val(NULL)(NULL)(NULL)(NULL) ohne chr$(NULL)(NULL)(NULL)peek"
  1025. 60250 [131] "*zu wenig str$aten"
  1026. 60260 [131] "falscher (NULL)ertebereich"
  1027. 60270 [131] "peekereich ueberschritten"
  1028. 60280 [131] "*(NULL)peicher voll"
  1029. 60290 [131] "*(NULL)prungziel nichr gefunden"
  1030. 60300 [131] "*ascalsche (NULL)mschreibung"
  1031. 60310 [131] "*doppeltes asceld"
  1032. 60320 [131] "(NULL)eilen durch (NULL)ull"
  1033. 60330 [131] "*str$irektmodus"
  1034. 60340 [131] "*str$aten-(NULL)yp falsch"
  1035. 60350 [131] "*(NULL)ext zu lang"
  1036. 60360 [131] "str$atei-str$aten falsch"
  1037. 60370 [131] "*ascormel zu komplex"
  1038. 60380 [131] "*len(NULL)(NULL)(NULL) nicht erlaubt"
  1039. 60390 [131] "*ascunktion umbekannt"
  1040. 60400 [131] "*str$atei-(NULL)est ascehler"
  1041. 60410 [131] "(NULL)ade ascehler"
  1042.